home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 April / 1988-04.d64 / disk direct.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  517b  |  12 lines
  1. 5 rem copyright 1988  compute! publications, inc.  all rights reserved.
  2. 10 print"[147]copyright 1988"
  3. 12 print"compute! publications, inc."
  4. 14 print"all rights reserved."
  5. 16 for x=1 to 2000:next:print"[147]"
  6. 20 print "insert disk and press return":wait 197,1,1:wait 197,1
  7. 30 d=8:gosub 1000:print:print:print "another disk (y/n)? ";:poke 198,0
  8. 40 get k$:on -(k$<>"y"andk$<>"n") goto 40:print k$:on -(k$="y") goto 20:end
  9. 1000 sys 57812"$",d:poke 43,1:poke 44,192:poke 768,174:poke 769,167:sys 47003,1
  10. 1010 poke 782,192:sys 65493:sys 42291:list:poke 44,8:poke 768,139:poke 769,227
  11. 1020 return
  12.